Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macros.arc/LCAR.ASM

Assembly Source File | 1983-11-17 | 2.1 KB | 27 lines

* LOAD CONSTANT (TO AR0/1)
*      LCAR AR0/1,CONSTANT
*
LCAR   $MACRO  A,B
       $IF   B.SA&$REL
       CALL LDAR$:A.V:   LOAD :A: WITH:
       REF  LDAR$:A.V:
       DATA :B:             :B:
       $ELSE
       $IF  B.SA&$UNDF
       $VAR L,Q
       $ASG '$$LAB' TO L.S
       $ASG L.SV+1 TO L.SV
V$:L.SV: EQU :B:
       $ASG 'V$' TO Q.S
       $ASG :Q.S::L.SV: TO B.S
       $ENDIF
       $IF  (B.SV<256)&(B.SV>-1)
       LARK :A:,:B:      LOAD :A: WITH :B:
       $ELSE
       CALL LDAR$:A.V:   LOAD :A: WITH:
       REF  LDAR$:A.V:
       DATA :B:             :B:
       $ENDIF
       $ENDIF
       $END